home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / TEACHER SCENE.bas < prev   
BASIC Source File  |  2020-07-23  |  1KB  |  36 lines
  1. 10 D$ =  CHR$(4)
  2. 500  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 4000  TEXT : HOME : VTAB 8
  4. 4020  PRINT "REMEMBER WHEN YOU WERE A KID IN SCHOOL? THE TEACHER WAS ALWAYS GETTING ON YOUR  BACK ABOUT THINGS.  SHE WASN'T BAD TO   LOOK AT THOUGH.  AND ONE DAY AFTER CLASS"
  5. 4025  FOR G1 = 1 TO 5000: NEXT G1
  6. 4030  PRINT D$;"BLOAD PIC.TEACH1,A$7000": GOSUB 5000
  7. 4040  HOME 
  8. 4050 A = 1
  9. 4060  POKE  -16297,0
  10. 4070  POKE  -16304,0
  11. 4080  POKE  -16302,0
  12. 4090  PRINT D$;"BLOAD PIC.TEACH1,A$7000": GOSUB 5010
  13. 4100  PRINT D$;"BLOAD PIC.TEACH2,A$7000": GOSUB 5000
  14. 4110  PRINT D$;"BLOAD PIC.TEACH3,A$7000": GOSUB 5010
  15. 4120  GOTO 4140
  16. 4130  GOSUB 4180
  17. 4140  POKE  -16299,0
  18. 4150  GOSUB 4190
  19. 4160  POKE  -16300,0
  20. 4170  GOTO 4130
  21. 4180  REM 
  22. 4190  FOR I = 1 TO 50  STEP A
  23. 4200 TN = 200 -2 *A -I
  24. 4210  POKE 768,TN: POKE 769,10
  25. 4220  CALL 770
  26. 4230  NEXT 
  27. 4240 A = A +1
  28. 4250  IF A >99  THEN 4270
  29. 4260  RETURN 
  30. 4270  PRINT D$;"BLOAD PIC.TEACH4,A$7000": GOSUB 5010
  31. 4280  FOR ZZ = 1 TO 1500: NEXT 
  32. 4290  PRINT D$;"RUN MENU"
  33. 5000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  34. 5001  RETURN 
  35. 5010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  36. 5011  RETURN